home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 February / EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso / earcd / -recent3 / storm_flexcat.lha / Storm_FlexCat / FlexCatCatalog.srx < prev    next >
Text File  |  1999-02-17  |  942b  |  31 lines
  1. /* 
  2.     FlexCatCatalog.srx
  3.         created by Christian Hattemer
  4.         chris@mail.riednet.wh.tu-darmstadt.de
  5.     
  6.     Compile a catalog description file to a catalog translation
  7.         and a catalog file.
  8.         
  9.     $VER FlexCatCatalog.srx 1.2 (26.01.99)
  10. */
  11.  
  12. /* Don't forget the point '.' at the end      \/        */
  13. PARSE ARG '"' Filename '"' '"' Projectname '"' .
  14.  
  15. Projname = SUBSTR(Projectname,LASTPOS('/',Projectname)+1)
  16. Projname = LEFT(Projname,LASTPOS('.¶',Projname)-1)
  17. Lang     = LEFT(Filename,LASTPOS('/',Filename)-1)
  18. Dir      = LEFT(Lang,LASTPOS('/',Lang)-1)
  19.  
  20. CdFile   = Dir||"/"||Projname||".cd"
  21. Catalog  = Lang||"/"||Projname||".catalog"
  22.  
  23. /* set object file of catalog file */
  24. OBJECTS Filename Catalog Filename
  25. DEPENDENCIES Filename CdFile
  26.  
  27. /* compile */
  28. ADDRESS COMMAND "StormC:FlexCat/FlexCat "||CdFile||" "||Filename||" NEWCTFILE "||Filename
  29. ADDRESS COMMAND "StormC:FlexCat/FlexCat "||CdFile||" "||Filename||" CATALOG "||Catalog||" FLUSH"
  30.  
  31.